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| 
Image transfer point, command dispatcher 16-5 Sep-1984 47 AX-11 Oi ieee -32 v4.0-742 P 1 
| ° ” . 3op- 188s 92:50:05 — LEXCHNG’SRESEXCMAIN Boos] 29? 4) 


MODULE eaettne ty ZTITLE ‘Image transfer point, command dispatcher’ 
IDENT = ‘V04-000' 


ADDRESSING_MODE (EXTERNAL =LONG_ RELATIVE, NONEXTERNAL=WORD_RELATIVE), 
RAIN = main_start 


; NC E OTIC OF TW Y 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AN 
!® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOF TUARE IS HEREBY 


& 
z 
® 
e 
® 
& 
e 
® 
® 
gz 
ie TRANSFERRED. . 
te 
* 
® 
® 
® 
® 
zr 
® 
® 
® 


0? 1 BEGIN 
: 1 
1 PITITITIIILILLLLLI LLL LLL LLL LLL LLL LLL LLL LLL iLL TLL iii iit 
'@ 
1 1 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
1 1 if DIGITAL EoulPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
1 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
1 1 ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
1 1 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- SORPORAT | Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PITTITIIIITITII LITT LLL LLL LLL LLL LLL iLL LLL 
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NO UE WR 20 OO NO WEP 0 ODO VEN $9 OD NOAUE WN 2 OOONOA VE WH "OO ONOU EWN 


ee me ee ee ee em ee me ee ee ee ed ed oe = od = = = = = oD 
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'e¢ 
: FACILITY: EXCHANGE = Foreign volume interchange utility 
33 i ABSTRACT: This ores supports foreign volumes for VAX/VMS. A subset of the DCL command Language is 
$$ suageres to perform operations as requested on the foreign volume. The subset DCL commands 
38 ! COPY - transfer a file 
9 ! DELETE - delete a file 
4 0040 ‘ DIRECTORY = List files on volume 
4 6041 ! DISMOUNT = dismount a mounted volume 
4 94 4 ! EXIT - exit program 
4 04 ‘ HELP - ask for explanation 
4 4 ! INITIALIZE - create empty volume 
4 5 : MOUNT = mount a foreign volume 
4 § : RENAME - rename a file 
4 ! SQUEEZE - compress a volum 
: 8 : TYPE - display a file = SYSSOUTPUT 
; 3 ENVIRONMENT: VAX/VMS operating system, unprivileged user-mode utility 
3 AUTHOR: Cw Hobbs CREATION DATE: 1-July-1982 
; 34 ! MODIFIED BY: 
36 : v03-002 CWH3002 CW Hobbs 12-Apr-1984 
5 5 ; Add conditional to prevent noise messages during debugging. 


vee-doo Image transfer point, command dispatcher 1b-sen-1964 9}: 96: rf yax choses BLi feqe3 nitinesss $2, Page as 


Ayal 
vw 


' Include files: 


‘ 
' 
MACR ule pane string = ‘exch$main’ %; ! The require file needs to know our module name 
RE auine*s SRCSTEXCREQ ! Facility-wide require file 


SAF 


K 1 
EXCHSMAIN Image transfer point, command dispatch -Sep-1984 06:47 AX-11 Bliss-32 V4.0-74 
veer Rodale teble of contents , 2 12-808- 1382 93:96:32 YEXCHNG SRE ERemAii Boos a 2h 


ZSBTTL ‘Module table of contents’ 
' Module table of contents: 


i] 
FORWARD ROUTINE 
main_control_c_ast : NOVALUE, 


a nexit 

main_exit handler : NOVALUE, 
main handle_cli_nocomd, 
exchSmain_help, 
main_setup_create_excg : NOVALUE, 
main_setup_load_time : NOVALUE, 
main_star 


f 


AST routine to set control/c flag 

EXIT verb dispatch routine 

Dismount volumes during exit 

Condition handler for 13 MOCORD error 
HELP verb dispatch routine 

Allocate and initialize the glebal data 
Once-only load time initializations 
Transfer point, outer command loop 


: System Library routines 


EXTERNAL ROUTINE 
lLbrSoutput_help : ADDRESSING_MODE(GENERAL) ! Librarian get help 


EXCHANGE facility routines 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

1 EXTERNAL ROUTINE 

1 exch$moun_dismount_action, 
1 exch$util_file_error, 

: exch$util-vm_aTllocate_zeroed 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Dismount mounted volumes 
HH ep RMS error 
Allocate virtual memory 


: Read-only GLOBAL storage 


GLOBAL 
exch$gq_dyn_str_template : $dyn_str_desc 


An initialized, null dynamic string descriptor 


Read-write GLOBAL storage 


$global_rw 
exch$a_gbl : REF BLOCK C,BYTE) 


The pointer to everything else 


Bound declarations: 
‘BIND 


: Local macros 
MACRO 
$$offset_check (sym) = ! Check that context block offsets coincide 
((SBYTEOFFSET (ZNAME (‘ctxS*,sym)) EQL SBYTEOFFSET (ZNAME ("doslictx 


AND 
_ Ot Tearr est (ZNAME ("ctxS',sym)) EQL SBYTEOFFSET (ZNAME (*rtlictx$ 


$$bit_check (sym) = ! Check that context 
((S$BYTEOFFSET 


tt tt 4) MQOOODOODOOOOO OOO OOO OO OW 09 09 09 09 09 09 09 09 09 SINSINI SII NNO OO 
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PUNUESS NO AFUMUMODSH USERRA OSO VER 


bl itfields coincid 
( x§ 


ock bitfi cide 
ZNAME (‘ctx$',sym)) EQL SBYTEOFFSET (2NAME (‘doslictx 
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SOOOSOSSSCOCOOOOOOoOoOoOoOo 


1 
E AIN mage transfer point, command dispatcher 5. ep-1984 706: AX-11 iss-32 V4.0- 
ae ta Aoacte table of contents ° | - oon 1882 91:98:42 ENchNG SRETEXEMATN CB Soe ree 
: AND 
(SBITPOSITION (ZNAME (‘ctx$',sym)) EQL SBITPOSITION (ZNAME ('doslic 
eroytearas® (ZNAME (‘ctx$',sym)) EQL SBYTEOFFSET (2NAME ('rtlictx$ 


gonne reeer oem (ZNAME ('ctx$',sym)) EQL SBITPOSITION (ZNAME ('rtlict 
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"1 
Im transfer point, command dispatcher 16-Sep-1984 01:06:47 AX-11 Bliss-32 V4.0-742 
asin control ¢_ost ’ 12280871382 95:98:98 YEXCHNG SRE EXCMAIN.B32;1 
GLOBAL ROUTINE main_control_c_ast : NOVALUE = %SBTTL ‘main_control_c_ast’ 
hed 
FUNCTIONAL DESCRIPTION: 


Set a flag which says that a control/c ast has been received 


INPUTS: 
none 

Z IMPLICIT INPUTS: 
rt none 
4 OUTPUTS: 
44 
4 
4 IMPLICIT OUTPUTS: 


exch$a_gbl Cexcg$v_control_c] - flag set that we have received the ast 
ROUTINE VALUE: 

none 
SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
45 none 
i 
' 
i 
1 
i 
i 
' 
' 
i 
i 
: none 


$dbgtrc_prefix ("main_control_c_ast> '); 
Strace_print_lit ('reteived confrol/c ast"); 


: Set the bit which says that an AST has been delivered 
exch$a_gbl Cexcg$v_control_c) = true; 

RETURN; 

END; 


WN —OOCOnNOufwr 


RRA Oe RR ee ey tee 
te] wm -—O 


SOoCoCooooooooooooooo: 


-TITLE EXCHSMAIN Image transfer point, command dispatc 


-IDENT \V04-000\ 
-PSECT EXCHSRW_GLOBAL ,NOEXE ,2 


00000 EXCHSA_GBL:: 
-BLKB 4 


»PSECT EXCHSMAIN_PLIT,NOWRT,2 
0000 00000 EXCH$GQ_DYN_STR_TEMPLATE:: 
-WORD “0 


eset 


; Routine Size: 


Image oh nd point. command dispatcher 
main_c 


_control_c_ast 


0860086 88808 


0000 00000 
00000000" FF 01 88 00002 
04 00009 


10 bytes, Routine Base: EXCHSMAIN_CODE + 0000 


ig 


1882 93:98:08 


-BYTE 
~ LONG 


«EXTRN 
-EXTRN 
«EXTRN 
-EXTRN 


»PSECT 


-ENTRY 
B1SB2 
RET 


EXCHNG SRETEREMAIN-BS3e1 
6. 2 


LBRSOUTPUT HELP 

EXCHSMOUN_ BISROUNT ACTION 
EXCHSUTIL-FILE ERROR 
EXCHSUTIL_VM ALLOCATE ZEROED 


EXCHSMAIN_CODE ,NOWRT ,2 


a? CONTROL_C_AST, Save nothin 
» SEXCHSA_GBL . 


2 
Ex IN Image transfer point, command dispatch 16-5 -1984 01:06:47 AX-11 iss- 4.0-74 
fbec000 oxchtnain.ontt terrer.code) 1378887198 93:98:68 «HEN Chnc Saesexematn casos — 


NO 


a5 re ROUTINE exch$main_exit (error_code) = ZSBTTL ‘exch$main_exit (error_code)' 
'e¢ 


SaNe 


-EXTRN SYSSEXIT 


3 } : 
9 1 ; 
es 7 ' 3 
; } f } FUNCTIONAL DESCRIPTION: : 
3 : § ie Action routine for the EXIT verb, parses and performs main control functions for EXIT : 
: 184 rt i INPUTS: i 
3 ; 15 error_code ~ final status code, return ss$_normal if it is 0 : 
a ? { IMPLICIT INPUTS: 
3 19 ‘ Command parameters and qualifiers as returned from CLI$xxx routines. ; 
3 198 5 2 i ouTPuTS: ; 
; #19 ! 3 
; 196 ; none $ 
; 198 $ i IMPLICIT OUTPUTS 
: 199 : 90 2 | : ; 
; 138 8 4 none : 
: 200 98 5 i ROUTINE VALUE: : 
; 03 38 none 
: 20 9 i ; 
: Be 0 37 SIDE EFFECTS: : 
; 54 0 44 : EXCHANGE will exit to the DCL command level. : 
: 208 0301 2 : 
: 4 oe $dbgtrc_pretix ("main_exit> '); : 
; 1 04 Sdebug_print_lit ("EXIT verb"); : 
; 15 BS if -error_code EQL 0 F 
> 215 08 $Sexit (code=ss$_normal) : 
; 09 ELS 3 
3 18 19 Sexit (code=.error_code); : 
; 1 1 RETURN 0; 
; 220 8 END; 3 
0000 000 .ENTRY EXCHSMAIN EXIT, Save nothing : ; 

06 ac OD 00 TSTL ERROR. dE : : 

of 1 000 BNEQ $ ; : 

1 OD PUSHL #1 3 : 

3°11 09 BRB 2s 3 3 

046 AC OD Bate 1$: PUSHL ERROR CODE 3 : 

000000006 00 01 FB OOO0E 2$: CALLS #1, SYSSEXIT : 3 


2 
VOLn000” ss eucREmaincen't Cerror_coges ”  sParcher beth 2:98:65 — HEXchnceSaSexemsinasss1 angi 


ot en ee : 8 


; Routine Size: 24 bytes, Routine Base: EXCHSMAIN_CODE + OOOA 


m 
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_ 
Zz 
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2 
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ba Saal Saal Sl taal Soe er 
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are 


SEF 
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PERE 


WAI 


Koei ie bunts ole Peerre = 
NM—OOBNOVEWN “OC OONOUEWN OO 


SoOoooooooooooooooooo°ooo 


hRoronore 
Won 
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cons fer point, command dispatcher 1b-sep-1984 93:96:67 yore Bliss-32 V4.0-742 Page 


handler (status) 14-Sep-1 EXCHNG.SRCJEXCMAIN.B32;1 (5 
++ 


3h ROUTINE main_exit_handler (status) : NOVALUE = %&SBTTL 'main_exit_handler (status)' | 


FUNCTIONAL DESCRIPTION: 


Perform exit functions for EXCHANGE. Dismount mounted volumes. Currently only necessary for RT-11 
volumes with global caching active. 


status - reason for exit 
IMPLICIT INPUTS: 
mounted volume queue 


rone 

IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 

SIDE EFFECTS: 
lots 


$dbgtrc_prefix (‘main_exit_handler> '); 


LOCAL 
ptr : $ref_bblock 


$trace_print_lit (‘entering exit handler’); 


Bee Se Ge Se ee Be Se Se Se Ge Ge Ge Se Se Be 4 Se oe oe Ge FH Se Se Se Se Se Se Fe Se Se oe Fe Se SH Ss Se Ge HSH Se Oe Se ee Be Se SH Sees 
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tr 
xi 
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4 
4 
4 
4 
& 
4 
& 
4 
4 
4 
” 
4 
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& 
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4 
| 
1€ 


ransfer point, command dispatcher 
thandler (status) 


: Set the flag that we are exiting 


ieateci98s MAE WMeNMSPLAeneNEtitals2, Pe 


sucha, ght Cexcg$v_exiting] = true; 


i af 


UHILe 1 
dO 


op through fhe queue of in-use volbs. We must go to the head of the queue with each loop, since the 
dismount routine will remove the current item from the queue. 


BEGIN 
tr = souchSa. bt Cexcgse. volb_use_flink]; 
ex 


! Get the first mounted volb in the queue 
ine” EQL e a_gbl 


xcg$a_volB_use_ tlink] i If same as header, we are done 
EXITLOOP; 
Sblock check (2, .ptr. volb, 637); 
If there are any modified segments, and the device is slow, tell them we are flushing 
iF ptr Cvolb$l_dircache] NEQ volb$m_dircache_active 
co Cvolb$l_devtype] EQL dt$_tuS8 ! If it is any kind of TUSS 
BEGIN 
LOCAL 


msgvec : VECTOR (5, LONG], 
status; 


! Make sure it is a volb 


! We use the Sputmsg service to print this message. If we signalled it, we could exit the image 
i another signal was active in the catch-all condition handler. This is estrenesy a reeey te ~~ 
-a andler 


! if the control/Y was hit during a command with a /LOG in effect, since the catc 
up spo: EXCHANGE log messages. 


msgvec 

msgvec 

msgvec 

msgvec -ptr_Cvolb$l vol ident. len]; 

msgvec = ptr Cvolb$t_Vol_Tden 

—" istetus = $putmsg (msgvec= at Bie 
em _Signal_stop (.status); 


Now call the action routine, so that in effect we will do a standard DISMOUNT of the volume 
exch$moun_dismount action (.ptr); 


4; 
xch$ _writecache; 


fo 


-EXTRN EXCHSUTIL matin CHECK 
~-EXTRN EXCHS$ WRI 
~EXTRN ei espotneee ser STOP 


000¢ 00000 ENTRY MAIN_EXIT_HANDLER, Save R2,R3 ; 0314 | 
| 


pa19be 12:29:08 LEXcHngeSRESEXCMATN. 08271 


F 2 
HSMAIN Image transfer point, command dispatcher 16-Se 
v04-000 main exit handler (status, . lage 


SE 14 SUBL2 #20, SP 
00000000" FF 10 § g sveLs aie" @EXCHSA GBL 
00000000" EF D 1$: MOVL L, R 
¢ ¢ B MOVL 9 (ROT, Pfr 
¢ ¢ 1 MOVAB 192(RO). RO 
D 1 CMPL PTR, RO 
1 BEQL «=ss38 
‘ 04180085 F p MOVL 468878579, R2 
i 027d . 3 MOV ZL #637, R1 
000000006 eF 1 00 f J38 XCHSUTIL_BLOCK_CHECK 
01 50 A3 p 7 CMPL (PTR), #1 
3A BEQL 
O€ 3c OAs 9 MPL O(PTR), #14 
9 41 NEQ $ 
6E 4 0 0045 MOVL #4, MSGVEC 
04 AE 000000006 8F D0 00046 MOVL #EXCHS WRITECACHE , MSGVEC+4 
8 AE DO 0004 MOVL #2, MSGVEC+ 
OC AE 65 A 005 MOVL 101(PTR), MSGVEC+12 
10 AE 69 Aad 9E 0005 MOVAB 105(R3), MSGVEC+16 
7E 7¢€ 0005¢ CLRQ 2s = (SP) 
7E pd 005 CLRL = = (SP) 
0c AE 9F 000 PUSHAB MSGVEC 
000000006 00 4 FB 006 CALLS #4, SYSSPUTMSG 
OA 0 E8 0006A LBS STATUS, 2$ 
DD 00060 PUSHL STATUS 
000000006 00 01 FB O6F CALLS #1, LIBSSTOP 
04 000 RET 
53 0D 00077 28: PUSHL PTR 
000000006 EF o1 FB 00079 CALLS #1, EXCHSMOUN_DISMOUNT_ACTION 
A 11 00080 BRB 1$ 
04 00082 3$: RET 


; Routine Size: 131 bytes, Routine Base: EXCHSMAIN_CODE + 0022 
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2 
transfer point, command dispatch 18- -1 06:47 Ax-11 iss- 4.0-74 
andle_cli nocond ae, 1e=8eh-1984 43:99:05 LeXcuncSRETERCMAIN B Sos poor Oi 


Tat ROUTINE main_handle_cli_nocomd (sig : Sref_bblock, mech : $ref_bblock) = ZSBTTL ‘main handle_cli_noco | 
i$ 
FUNCTIONAL DESCRIPTION: 


This routine intercepts the signal MSG$_COMD. This is used to avoid unnecessary noise when 
a blank Line is given. 


INPUTS: 


sig = signal argument List 
mech = mechanism argument List 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
| 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

none 

i IMPLICIT OUTPUTS: 

none 

' 

ROUTINE VALUE: 

; SS$_CONTINUE if the signal was CLIS_NOCOMD, otherwise SS$_RESIGNAL. 

i SIDE EFFECTS: 

error message is not printed for nocomd errors 

Sdbgtrc_prefix (‘main_handle_cli_nocomd> '); 

: If the signal name is what we are looking for, then do interrupt the signal 

if -Sig Cchf$l_sig_name] EQL cli$_nocomd ! DCL CLI error message (sinful knowlege of what DCL does!) 
RETURN ss$_continue; 

RETURN ss$_resignal; | 

END; | 


-EXTRN CLIS_NOCOMD 


a 6 ENTRY MAIN_HANDLE_CLI_NOCOMD, Save nothing ; 0404 

50 04 aC D MOVL SIG,"R ; 0443 
000000006 &F eo A D} cMPL = & (RO), #CLIS_NOCOMD ; 
4 2 BNEG = ; 

50 1 96 0001 MOVL #1, RO > 0445 

50 0918 8F 3¢ 00014 18: MOVZWL #2328, RO > 0447 


| H 
Wr-bO0 =a tRthondleceLionocend mene “1sPatcher hateaty 93:98:65 Hehe SRESEREmAIAoaSos 1 roe 
04 00019 RET 3 0448 

; Routine Size: 26 bytes, Routine Base: EXCHSMAIN_CODE + O0A5S 


$dbgtrc_prefix (‘main_help> '); 


LOCAL 
status, 
topic : $desc_block 


EXCHSMAIN Ima Sreneter int, command dispatcher 1b-5e Sep-1 :47 AX-11 Bliss-32 V4.0-742 Page 14 
¥06-000 exchteain hep)” “ 371984 12:98:05  LACHNG SRESERCMAIN BOS41 9° 8) 

4 SL OGAL ROUTINE exch$main_help = ZSBTTL ‘exch$main_help) ° ‘ 

ed : 

453g | FUNCTIONAL DESCRIPTION: ; 

5 Action routine for the HELP verb, parses and performs main control functions for HELP ; 

; i INPUTS: ; 

5 none 

e} i IMPLICIT INPUTS: ; 

ie es Command parameters and qualifiers as returned from CLI$xxx routines. ‘ 

65 2 ! ouTPUTS: ; 

' Ps 

$9 : none ; 

68 : 3 

+4 IMPLICIT OUTPUTS: ; 

471 ! none : 

47 : : 

7 ' ROUTINE VALUE: ; 

47 ! ; 

7 } none ° 

7 i SIDE EFFECTS: : 

047 ' : 

ot Help Librarian routines will be entered. : 


SSSLEAEANLSSSELERLAN AS Save 


VESPA LSSSISEALAN LS SSVSAR 


Z : $debug_print_lit ("HELP verb’); 

602 Sdyn_str_desc_init (topic); 

404 cli$get_value (ZASCID ‘TOPIC’, topic); 

$08 status = artouteys help 

red LiBSput output, 

409 38 opic 

410 4 th ci "EXCHNGHLP®, 

411 5 ZREF (HLPSM_PROMPT "OR HLPSM_PROCESS OR HLPSM_GROUP OR HLPSM_SYSTEM OR HLPSM_HELP), 
tig 1 Libsgete input); 

41 ¢ 

G16 IF NOT .status 

415 504 THE 

416 505 Sexch_signal (Swarning_stat_copy (.status)); 


EXCHSMAIN Image Sreneter int, command dispatch 1b-5¢ Sep-1 AX-11 Bliss-3 -74 P 
fon 000 akan kaa oe 3opn ibe $2:5805 | Pench She Sexemstnca ssc age oh} 


BBR Fag seem 


«PSECT EXCHSMAIN_PLIT,NOWRT,2 


P.AAB: .ASCII Weer 
P.AAA: .LONG 


00 00 00 43 49 50 4 03 8 08 

14 «ADDRESS P.AAB 
34 P.AAD: “ASCII \EXCHNGHLP\<0><0><0> 
8 


re 


$0000000" 00 


00 00 00 50 4C 48 47 4E 48 43 
P.AAC: .LONG 
ADDRESS P.AAD 


TMPL= EXCH$GQ_DYN_STR_ TEMPLATE 
-EXTRN CLISGET -VALOE, CIB$PUT_OUTPUT 
-EXTRN LIBSGET_INPU 


.PSECT EXCHSMAIN_CODE,NOWRT,2 


0004 00000 .ENTRY EXCHSMAIN_HELP, Save R2 1 0449 
5E 0c ce 900¢ SUBL2 é : 
04 AE 0000" CF 7D 0000 vQ  TMPL, DESC + 0491 
4 AE 9F 00008 PUSHAB Topit + 0493 
0000" CF 9F 0000 PUSHAB : 
000000006 00 : FB 0001 CALLS pelt fot VALUE : 
000000006 9F 0001 PUSHAB tt + 0496 
04 AE F DO OOO1F MOVL : 0500 
04 AE 9F 00023 PUSHAB : 
0000" CF 9F 00026 PUSHAB + 0498 
10 AE 9F OO02A PUSHAB TOPie : 0496 
43 4 00 D CLRL = SP) : 
000000006 F 6 F PUSHAB LIBSPUT_OUTPUT : 
000000006 99 FB 00035 CALLS Wg. | LBRSOUTPUT _HELP : 
DO 0003¢ MOVL ATUS ; 
OF E8 0003F BLBS «ST Tos. i$ : 0503 
0 b 004 MOVL STATUS. STATUS2 > 0505 
5 g A 0004 BICB2 STATUS2 ; 
0 DD 0004 PUSHL SI TUS : 
000000006 99 o4 FB O004A CALLS xt 1BSSIGNAL ; 
0 2 pO 00051 1$ MOVL STAT , RO : 0507 
04 00054 RET : 0508 
; Routine Size: 85 bytes, Routine Base: EXCHSMAIN_CODE + OOBF 


K 2 
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exch$a_gbl - external pointer to the block 


444 

rei ROUTINE VALUE: 
44 none 
448 


SIDE EFFECTS: 
Memory is allocated 


WWII IWIIIWInononononononornono9ny 


DOONAN E WIN © OD NOAUNE WIN SO OONAU EWN OOD ONOU EW SO OOVOUE 


main_setup_create_excg 14-Sep-1 XCHNG.SRC JEXCMAIN.B32;1 
e 1 Tat ROUTINE main_setup_create_excg : NOVALUE = ZSBTTL ‘main_setup_create_excg' ; 
058 11 5 tee F 
424 1 ' : 
? 5 ! FUNCTIONAL DESCRIPTION: ; 
: $ : This routine allocates and initializes the global data ‘ 
4 § 1 i INPUTS: ; 
4& 1 : : 
; 1 1 none : 
4 : ; IMPLICIT INPUTS: ; 
4 5 3 | none : 
4 5 i OUTPUTS: : 
4 5 ' : 
rn 3 
441 5 i IMPLICIT OUTPUTS: : 
44 5 ‘ 
i 3 
i P 
: 
' : 
i : 
' Py 
i : 


$Sdbgtrc_prefix (‘main _setup_create_excg> '); 
LOCAL 
ptr 


re Ns 


Sdebug_print_lit (‘entry'); 
: Allocate the global data structure 


LV ah sb ah ab dh db th th db db dh oh dh ah dh sh ah ah ahaha 


= 

w 

oO 
COOCOOCOSSOOCOOOCOOOOOOOOOOOOOOOOoOOOo 


Be Be Oe Be Fe Se Be Se Se Se Be Ge Se Se Se Ge Se Se Ge Se Ge Fe Ge SHS Ge Se Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Se Ge Se Se Se Se Se Se Oe Ses oe Se Oe Se Os Os es oe 
> 
> 
oO 


ea2 33 exch$a_gbl = exch$util_vm_allocate_zeroed (exchblk$s_excg); 

cs? 33 : Set the block size and type 

rs 33 $block_init( .exch$a_gbl, excg); 

$7) 335 : Init the queue headers for the global resources 

47 561 $queue_initialize (exch$a_gbl fexcgsa_dosi ictx_use ); |! Head of queue of all SDOSIICTX's in use 
rh 26¢ Squeve_initialize (exch$a_gbl Lexcg$q_doslictx_aviJ); ! Head of queue of all available SDOSIICTX's 
47 564 S$queve_initialize (exch$a_gbl fexcgsa.filb_use ); ' Head of queue of all SFILB's in use 

47 565 Squeve_initialize (exch$a_gbl Lexcg$q_filb_avilJ); ! Head of queue of all available SFILB's 


Imege transfer 
n_setup_crea 


55 
Vw 
SAN NNN 


WN OOONOus 


uw 


nw 


BesSsssssss 


Be Se Ge Se Ge Se Ge Se Ge Oe Ss Oe SF Os Ge FH Ss Ge SF Ss Oe SH Os Oe SH Ss Se BOs Oe SH oe 
ooo 
LERELNLSSE 


“ 
oS 


int, command dispatcher 1b-se -1984 AX-11 Bliss-32 V4.0-74 e P 17 
te ence , =3007 1382 93 96°65 EXCHNG.SRC EXCMAL oase1 pe (9) 
Squeue_ [nj jot ize (exch$a_gbl fexcasq. namb_use F Head of queue of all SNAMB's in _use 
Squeve_initialize (exch$a_gbl Lexcg$q_namb_avlJ) Head of queue of all available SNAMB's 
Squeve_initialize (exch$a_gbl fexcasa. rmsb_use F ! Head of queue of all SRMSB's in use 
Squeve_initialize (exch$a_gbl Cexcg$q_rmsb_aviJ) ! Head of queue of all available SRMSB's 
Squeve_initialize (exch$a_gbl Cexcg$q_rmsb used}: ' Head of queue of all SRMSB’s in use 
Squeve_initialize (exch$a_gbl Cexcg$q_rmsb_aviJ); ! Head of queue of all available SRMSB's 
$queue_ jnityat ize (exch$a_gbl bexcgsa_ rtlictx_use F Head of queue of all SRTIICTX’s in_u 
Squeuve_initialize (exch$a_gbl Cexcg$q_rtiictx_aviJ) Head of queue of all available SRTVICTX! 5 
Squeve_initialize (exch$a_gbl fexcasa. volb_use si ! Head of queue of all $VOLB's in _use 
Squeue” initialize (exch$a_gbl Cexcg$q_volb_aviJ) ! Head of queue of all available $VOLB's 
! Init the RMS pointers. ALL the RMS blocks are in space between the end of the official SDL defined 
block and the end of the allocated space. We will carry a “peluner through as we init these RMS pointers. 
eee = .exch$a_gbl + excg$k Length; ! First free byte after SDL structure 
exch$a = perc ose. sys sysout tab] = .ptr; ! output fab 
-ptr 
RS ~9bl Cexcoss-s “ sout rab) = .ptr; ! output rab 
r= .ptr + ra 
exchsa_ 9b encode. : sout nam] = .ptr; ! output nam block 
r= .ptr + nam 
exchSe_ abt £ Cexcgsa_ sysout_ ebuf] = .ptr; ! output expanded name string 
r = .ptr + nam$c_maxrss; 
SachSe “bbl Cexcg$a_sysout_rbuf) = .ptr; ! output result name string 
RETURN; 
END; 
000C 00000 ENTRY MAIN sere PaCREATE_ EXCG, Save R2,R3 ; 0509 
$3 00000000" EF 3 si OVAB EXCHS & 3 
E O7CA 8F 3C 000 MOVZWL #1994, tsb) : 0553 
000000006 ef 1 4 O05 ts 4¥ eacHSUTIL VM_ALLOCATE_ZEROED ; 
3 2 D0 0001 MOVL ExtuéA. GB: a : 0557 
08 Al O7CA BF 18 MOVW #1994, “B(R1 3 
A Al 5 BE MNEGB #5, 10(R1) ; 
5 sc OA 5 MOVAB 92(R1), RO ; 0561 
4 30 D MOVL RO, (RO) ; 
04 «OA MOVL RO, 4(RO) 3 
5 64 «AT MOVAB 100(R1), RO ; 0562 
60 20 D MOVL Rd, (ROS ; 
06 «OA 0 3 7 MOVL RO, 4(RO) : 
5 70 Al MOVAB 112(R1), RO > 0564 
6 20 D F MOVL RO, (ROS ; 
04 =A 3 4 MOVL RO, 4(RO) : 
5 78 «AI rs MOVAB 120(R1), RO : 0565 
6 20 D 4A MOVL RO, (ROS ; 
046 =A Dd 4D MOVL RO, 4(RO) : 


| 
| 
| 
| 


erty Bi tage se V4.0-742 
EXCHNG. SRC JEXCMAIN.B32;1 


? 
5 


ISosto-1984 010634 


_excg 


Image transfer point, command dispatcher 
_setup_create 


main 


HSMA 
-000 


x¢ 


v04 


~ 3 So - mM TF O ~ o [>] 
oO Mm ™ ~~ ~ ~ co COR AAA OO 
wv w w wo www w w ra MMM 
o o o o o oo © oO So oO Soooooooceoo 
fe *e *e ea ee Fe Fe ea Fe FS FS Fe FS FR FR FR FS FR FS FS FS FR HS FS FR FS HS FS FS Oe eR He Fe He Fe ee te 
~~ “~~ “~ “~~ 
tt ath an od 
=x c ce 
aq~ ~ ~ ed * ee 
So oS N o o oO o oO —-OoOanw OTcor— 
a fo 4 cc a x « a a ack —- woe 
nN co =~ ~ a a nam war 


~ ~ 
nae weO wt wnoAn we OO OO OO es 
HOG -Of avg -ogcvaco¢ -oac-0oac-coc-cgcn «+ 


~ ~ a Ld ~~ ~~ ~ ~aSaae -eaa~ «+ 
Er ae an BEE 2D Fe Le LSS 
Moo~roOoOWN Or. COODOSOOOO0C00O4A WA 00.00 + 


we ee See Oe Seer ee See See Seve evr~r~Y~R2-O~wa 


SOOSSSSSCCOGSCSOSOSOCOCOCSCOSCOCOCOCOOOOCOOOOSOOOOOOOO 


WOOSWOOWOOWOOKKOOCOWSDS WOOWOOWOCOCWWWWOWWWWwO.,s 
POGPOGSHOSHFOOHGSHHAS GASP SAPS AHGSA AGIOPLL PK. OR OLR. SB OO 


OOQOQOOOMUMVOOOMMNBOOOOCOCOCOCOOCOOCOCOCO-O- O- Or O- 
NO IMDM INO ANOLO TO INO INO INO INO BNOMVMOMOMY 


$8864 824888 SS S 


88238 


EXCHSMAIN_CODE + 0114 


Routine Base: 


238 bytes, 


3; Routine Size: 


— 
ea 
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math setup, load tine i ° ee 12-808-1 382 93 398368 YEXCHNG SRe EXCMAIN.B32;1 age 45 


1 Haat ROUTINE main_setup_load_time : NOVALUE = ZSBTTL ‘main_setup_load_time’ 


33 


'o¢ 
' 
FUNCTIONAL DESCRIPTION: 
This routine performs initializations which are required once only at image load time. 
INPUTS: 


—_ 2 os 4 


none 
IMPLICIT INPUTS: 


SSe 


none 
OUTPUTS: 


IMPLICIT OUTPUTS: 
none 


MEW DODNOAUN SUN —“OOONOUS wn 


ROUTINE VALUE: 


teat eng tyes gene ab Sh ahs! thy ote Nae 4 


SEN DIN DIN) ce dd ed et ot ed 
SOONAUE LINO OONOUS wn 


none 
SIDE EFFECTS: 


none 
$dbgtrc_prefix ("main_setup_load_time> '); 
B 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
none 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
ie 


LOCAL 


Ww 


FV FUPUPVLULUIVLVIUSIUSLVSVLVLSVSVSVSVSUSUSISVSTSVS USVI VSVOSISIS SSIS 


Pe at ot tt et et te 


DDD PPP SPV A SVSD SVS SVSTSIA 
DAAAAAAMII 
SSRIS RFUN 2S SRNOARWN=SS 


SSeeeEe 


dib : Sbblock (12) ! First longword of dib 
dib_desc : VECTOR fe LONG] ! A descriptor for the above 
jpi_item : VECTOR C16, LONG, i Item list for f$getjpi 


ASA AAAARACRR AAA AAA et tet 


Seo 


CONIA UNE WI 


member, 
status 


IND 
syscommand = ZASCID ‘SYSSCOMMAND'; 
$debug_print_lit (‘entry'); 


3333 
MPWN—O 


: Allocate and initialize the global data structure 
main_setup_create_excg (); 
: Now that the global structure is ready, we can bind to some components 


BEGIN 
BIND 


ww 
wn O00 


eae 


3 
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main setup, load tine ‘ 122890- 1382 9) 98568 LEXCHNG. SRE EXCMAIN.B32;1 . 185 | 
3 $8 5 out_fab = .exch$a_gbl [excg$a_sysout_fab] : $bblock, : 
5 $ § Out_rab = .exch$a_gbl Lexcg$a_sysout_rab] =: $bblock, ‘ 
; Y out_nam = .exch$a_gbl Lexcg$a_sysout_nam] : $bblock, : 
8 Out _ebuf = .exch$a_gbl Lexcg$a_sysout_ebuf] : $bblock, ‘ 
: f out rbuf = .exch$a_gbl Lexcg$a_sysout_rbuf] : S$bblock | ; 
: 574 : | ; 
3 Ne § } Prepare control blocks for terminal 1/0 : 
3 $7 P 0664 3 Sfab_init ( | ; 
; 578 P 0665 fab = ous fst, ! File access block ; 
; 579 p 666 fac = PUT; ! Put only : 
3 p My) rat = CR, $ 
; ei p i fnm = ‘SYSSOUTPUT’, : 
; ¢ sg: nam = out_nam); ! Name block : 
; 0670 : 
3 P ben) $rab_init ( : 
3 5 P ols rab = out_rab, ! Record access block : 
; on8 P 067 rec = ; 3 
; 387 0674 fab = out_fab); : 
; 588 0675 3 
3 38? P Bore Snam_init ( F 
; 2a P 067 nam = out_nam ! File name block : 
; 591 P 0678 rsa = out rbuf, ! Result name addr , 
; 236 P 0679 rss = nam$c_maxrss, ! Result name size : 
; P 0680 esa = out ebuf, ! Expanded name addr : 
: age se? ess = nam$c_maxrss); ! Expanded name size ‘ 
; 398 5688 ! Open the default output stream ; 
; WW 684 : 3 
: rh eH 4 . NOT (status = Sopen (fab = out_fab)) | : 
: 4S O68? Sexit (code = exch$util_file_error (exch$_openout, .status, out_fab, .out_fab Cfab$l_stvJ)); ‘ 
; o0¢ 9 4 IF NOT (status = $connect (rab = out_rab)) ; 
; 60 0690 THEN 3 
3 oR 44 Sexit (code = exch$util_file_error (exch$_openout, .status, out_fab, .out_rab Crab$l_stv])); : 
; on 995 If SYSSCOMMAND is a terminal device, set up Control/C handlers sco that we can interrupt long commands : 
: one 0695 4 IF NOT (status = Sassign (chan=exch$a_gbl Cexcg$w_tt_channel.J, devnam=syscommand) ) : 
; ei9 Os Sexch_signal_stop (exch$_accessfail, 1, syscommand, .status); : 
; ei¢ : ; Get the device information for SYSSCOMMAND : 
: 614 701 3 dib_desc FO} = 125 : 
; 615 70 dib-desc (1) = dib; : 
3 alg y? 4 iC nor (status = $getchn (chan=.exch$a_gbl Cexcg$w_tt_channelJ, pribuf=dib_desc)) : 
; rar 705 $exch signal stop (exch$_accessfail, 1, Syscommand , -Status); | F 
; 619 P 07 $trace_print_fao (‘channel !Rw, devchar !XL, devclass !XB, devtype !XB, devbufsiz 'UL, devdepend !XL', : 
: 620 P 070 “erchie gb Cexc Butt channel -dib tdib$l_de ghoe : j 3 
3 ° 1 . 3 -dib Cd7b$b_devclasS),~.dib Cd 6$b_devtypel, -dib dib$w_devbufsiz), -dib Cdib$l_devdepend]) ; 
; ° 5 1a | If SYSSCOMMAND is a terminal, enable the control/c ast : 


pe a 


3 
EXCHSMAIN Image transfer point, command dispatcher 1b-5e 1984 01:06:47 AX-11 Bliss-32 V4.0-742 Page 21. 
v04-000 math setup, load time 1 ~Sep-19 4 9 98568 LEXCHNG. SRE EXCMAIN.B32;1 (10) | 
; 625 Ne ; IF .dib Cdib$Sb_devclass] EQL dc$_term 
; ose 7} THEN 
3; 6 714 4 BEGIN 
; 6 3 715 4 LOCA, | 
Hy ? rig 2 osb : VECTOR (4, WORD]; 
: ° 1 At ? Set the control/c ast, renabling it to this routine 
: 6 ‘ 7 y 4 $trace_print_lit ('SYSSCOMMAND is a terminal, enabling control/c*); 
3; 6 P 07 2 IF (status = Sqiow (efn=0, chan=.exch$a_gbl fexc $w_tt_channel], 
3 ? 5 4 § i 7 func=(io$_setmode OR ioSm_outtand), ioSb=iosb, pl=main_control_c_ast, p2=UPLIT (0,8))) 
; ? f ¢ ? status = .iosb (0); 
; o7 OF $ 2 If either the qio or the io operation failed, scream and shout 
; 641 728 4 if NOT .status 
; ak 729 4 THEN 
3 7 9 ? $Sexch_signal_stop (.status); 
: 645 73¢ 3 ELS 
3 ong 7 4 BEGIN 
; 64 0734 4 $trace_print_lit ("SYSSCOMMAND is not a terminal, no control/c'); 
; 648 0735 4 $dassgn (chan = .exch$a_gbl Cexcg$w_tt_channelJ); |! Deassign the channel, we have no further use for i 
; 649 37 $ 4 exch$a_gbl Cexcg$w_tt_channel) = 0; i Mark channel as not in use 
: get 0738 Me 
F $36 aR } Get the user's UIC group and member numbers, in case we create any files. 
3; 654 bpet ZIF switch_variant GEQ 3 XTHEN grove = member = 0; %FI! While debugging, suppress the bogus ‘‘uninit referenc | 
: 655 oreg pi_item (0) = (jpi$_grp*16 OR 4); ' Group number 
3 $26 074 pi_item (1) = group; ! Buffer for value 
3 6 744 pi_item § = 0; ' Returned length not important 
; 658 745 pi_item = (jpi$_mem*16 OR 4); i Member number 
; 659 746 pi_item .4] = member; 
; 660 0747 pi_item (5] = 0; 
; 661 0748 pi_item $ = (jpi$_username*16 OR 12); 
3 O06 0749 pi_item = exch$a_gbl Cexcg$t_username); 
; 66 750 pi_item (8) = 0; 
; o8 La} pi_item (9) = 0; ! End of List 
: 666 Fag 4 IF NOT (status = S$getjpiw (efn=0, itmlst=jpi_item)) | 
; 667 754 THEN 
; 668 P33 $exch_signal sto C.stetys?s 
3 66 7 § exch$a_gbT bexcosw_u c.group)_ = .group; 
3 or Pee exch$a_gbl Cexcg$w_uic_member]) = .member; 
: ere 0759 : Get the value of command Line qualifiers which Last for the life of the image 
: ore 43 exch$a_gbl Cexcg$v_q_message] = cli$present (ZASCID "MESSAGE'); 
: or re? : If global caching is requested, set up the exit handler 
; $78 4 4 3 iF (exch$a_gbl Cexcg$v_q_cache] = cli$present (ZASCID ‘'CACHE')) 
: 680 769 4 BEGIN ; | 
3 1 768 4 trace_print_lit (‘caching requested"); 
| 


a a ee—s—S —— -— 


| 
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~000 main setup, load tine . ~36p7138e 93:98:05 4 EBXcune ScSexcmaln esze1 9155 
6 & exch$a_gbl Cexcg$a_cachexh_routine] | = main_exit_handler; ! Address of routine 
7 4 exch$a_gbl [excg$l_cachexh_arg count? = = 1; i Number of args (st 
a 2 exch$a_gbl Cexcg$a_cachexh_stat = exch$a_gbl Cexcg$l_cachexh_condvalul; i Location for statu 
i$ ? if wot (status = Sdclexh (desblk=exch$a_gbl Cexcg$r_cachexit_block])) 
775 4 Sexch_signal_stop (.status); 

? 9 78 ND; 

$91 a END; ! Extra end needed for the BIND 

O36 a4 RETURN; 


; £38 
; INFO#250 :0756 

; votecsoges LOCAL symbol crc P is probably not initialized 
; Referenced LOCAL symbol MEMBER is probably not initialized 


-PSECT EXCHSMAIN_PLIT,NOWRT,2 
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00 44 4E 41 4D 4D 4F 43 24 53 59 53 OQ002C P.AAF: .ASCII \svss¢ ND\<0> ; 
010E000B 00038 P.AAE: .LONG 17694 ti : 
00 5000 ' 00 C “ADDRESS P.AAF : 
54 55 50 56 55 4F 26 53 59 5 9040 P.AAG: ASCII \SYSSOUTPUT\ : 
00000908 00090000 004C P.AAH: .LONG 0, 8 ; 
00 45 47 41 53 53 45 4D 00054 P.AAJ: . ASCII \ ESSAGE\<O> : 
10€0007 0005C P.AAI: .LONG 1769472 : 
0000" 00060 “ADDRESS P.AAJ F 
00 00 00 45 48 43 41 43 00064 P.AAL SCI] \CACHE\<O><0><0> : 
0100005 0006C P.AAK: .LONG 17694725 : 
00000000" 00070 “ADDRESS P.AAL : 
SYSCOMMAND= AAE 
.EXTRN sySSOPEN SYSSCONNECT 
“EXTRN SYSSASSIGN, EXCHS$_ACCESSFAIL 
*EXTRN S1SsceT CoN. YS$QTOW 
“EXTRN SYSSDASSGN, SySScETJPIW 
“EXTRN CLISPRESENT, SYSSDCLEXH 
.PSECT EXCHSMAIN_CODE ,NOWRT,2 
OFFC 00000 SENTRY MAIN, SETUP. LOAD. TIME, Save R2,R3,R4,R5,R6,~ ; 0598 
900 f CF 9E 0000 MOVAB  SYSC : 
E 00000 00° EF 9E 0000 MOVAB EXCHSA GBL, R10 : 
t AE 9—€ 000 MOVAB = 76(S : 
FEFB OCF 00 F 1 CALLS #0 RAIN SETUP_CREATE_EXCG + 0649 
8 6A 09 1 MOVL X€HSA_GBL, R8™ > 0655 
000 CB D 1A MOVL O8(R y. R? ; 
3 Bobs «ER bo doors mot S1StRBD” Re i Sees 
0050 =F 00 bE 09 yi 6 9 mOVCS #0, tsps, #0, #80, (R7) 0669 
67 5003 er 1 MOVW #20483, (R7) : 
16 A? 1 88 $0 MOVB af Stay) ; 


iiicimemnaceinateamicsneictiin 4 


3 | 
Exc IN Image transfer point, command dispatcher 18-5e =-1984 06:47 AX-11 Bliss-32 V4.0-742 Page 23. 
aaa nath. setup, loed tine ° 1 ~$007 138% 93:96:82 EXCHNG. SRC IEXCMAIN. B32: 1 . 18) 
1 a7 0202 BF B 3A MOVW #514, 30(R7) ; ; 
§ AP & BO go0c0 MOVL 6, 40(R7) : | : 
Cc A? 08 AB 44 MOVAB P.AAG, 44(R7) : | : 
4 ar OA 9 mova. #10, §2(R7) : | ; 
BF 00 6E 9 ¢ 4p MOVCS #0, (SP), #0, #68, (RO) ; 0674 | ; 
69 4401 $F 0 5 MOVW £17409, (R9) : 3 
1E ag 4 A CLRB =: 30(R9) : ; 
an |) 0 D MOVL. 7, 60(R9) : ; 
BF 00 (3 9 C 00061 MOVES #0, (SP), #0, #96, (RO) : 0681 : 
66 6002 er 0 0969 MOVW #24578 (R6) : | ; 
Pr 1 : MNEGB #1, 2(R6) : ; 
4 Ab 0060 CB p 99 MOVL 224(R8), 4(R6) : ; 
A Ab 1 F 7 MNEGR ff (R6) : : 
C Ab 00p¢ £8 D 9 iS MOVL 2g(R8), 12(R6) : ; 
D2 PUSHL R + 0685 F 
000000006 99 * 09 CALLS #1, SYSSOPEN : : 
D0 00 MOVL RO, STATUS : : 
1D E8 OOO8E BLBS STATUS, i$ : : 
A? 0D 00091 PUSHL  12(R7) + 0687 ; 
00 F BB 00094 PUSHR #*M<R3,R7> : : 
OOF810A0 8F DD 00098 PUSHL #16257184 : : 
000000006 EF 4 FB 0009 CALLS #4, EXCHSUTIL_FILE_ERROR ; ; 
0 0D 000A PUSHL R F : 
000000006 00 1 FB OO0A7 CALLS #1, SYSSEXIT : : 
9 DD OOOAE 1$: PUSHL : 0689 ; 
000000006 99 1 FB 000B CALLS #1, SYSSCONNECT ; : 
g dO 0008 MOVL RO, STATUS ; : 
1D E8 OOOBA BLBS STATUS, 28 : : 
Oc A9 DD 000BD PUSHL  12(R9) + 0691 : 
0088 F 8B 000C0 PUSHR yer R7> : : 
OOF810A0 8F DD 000C4 PUSHL  #16257184 ; : 
000000006 _ EF 4 FB OOOCA CALLS #4, EXCHSUTIL_FILE_ERROR : : 
0 DD 00001 PUSHL RO ; : 
000000006 00 91 FB 00003 CALLS #1, SYSSEXIT ; : 
3 7C QOODA 2$: CLROQ -( 3; 0695 3 
7E 6A C1 000D ADDL3 #2, EXCHSA_GBL, -(SP) : : 
B OD O00E PUSHL R11 ; ; 
000000006 99 4 FB OOOE CALLS #4, SYSSASSIGN ; : 
9 D 0€ MOVL RO, STATUS ; 3 
24 E9 OOOEC BLBC = STATU : : 
38 AE 0C DO OOOEF VL #12, DiB_DESC > 0701 : 
C AE 46 AE OE F3 VAB DIB, DIBDESC+4 : 0708 : 
7E 7C OOF CLRQ = (SP) : 070 
40 AE OF FA S DIB_DESC ; 
7E D4 O00FD CLRL =_ = (SP) ; 
50 6A b0 FF VL EXCHSA_ GAL RO ; 
02 ao 3C MOVZ2WL 2(RO), = : 
000000006 9 F 1 CALLS #5, SYSSGETCHN : 
D0 001 MOVL RO, STAT : 
14 E8 001 BLBS STATUS, 4$ ; 
DD 00113 38: PUSHL STATUS > 0705 
DD 0011 PUSHL ; 
DD 0011 PUSHL #1 ; 
000000006 8F DD 00119 PUSHL #EXCH$ _ACCESSFAIL : 
000600006 00 4 FB OO11F CALLS #4, LIBSSTOP ; 
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TUS, 7$ 
(SP) 
#1, gistoassen 
) 
750855940 JPI_ITEM 
GROUP, JP 


WI TER+4 


450790404 JPI_ITEM+#12 
4 ITEM+16 


ee JPI_ITEM+24 
GBC, JPI_ITEM+28 


7435) 
JPI ITEM 
(SP) 


(SP 
a7, svsses tJ? ie 
RO, TUS 


GROUP, ~30(R2) 
RENOER, 8(R2) 


AAI 
a CLISPRESEN! 
(R2 


K 
a - CLISPRESENT 
@EXCHSA_GBL 


nO, 9s RO 
aAIN entire HANDLER, 72(RO) 
#1 (R 
4(RO), 80(RO) 
(RO) 
#i, SYSSDCLEXH 
RO. STATUS 


ras 


e 
o 
’ 
oe 
a 
. 
. 
° 
’ 
a 
a 
’ 
o 
° 
* 
* 
* 
ca 
* 
° 
* 
o 
. 
° 
« 
oe 
co 
o 
. 
o 
° 
. 
6 
e 
a 
oe 
o 
. 
. 
o 
. 
. 
. 
a 
2 
. 
. 
o 
. 
. 
. 
. 
. 
° 
- 
. 
o 
. 


#7 


; 0722 | 


se 


Dieenintie new if seo-t9ge M:98i65 — Eetchnc’SReexcmaticases 
. $ $8208 os, PURE, STATUS 
000000006 00 i i Se a ee sr Yhosstoe 


; Routine Size: 533 bytes, Routine Base: EXCHSMAIN_CODE + 0202 
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H 3 
Exc IN Image transfer point, command dispatcher 16-Sep-1984 01:06:47 AX-11 Bliss-32 V4.0-742 Page 26 
f5et000 natn start re : 19=808-1382 9:98 38 LEXCHNG. SRE EXCMAIN.B32;1 . 19 
$9) 7 1 GLOBAL ROUTINE main_start = ZSBTTL ‘main start’ 
98 7 BEGIN 
4 ree Si 
639 g 5 ¢ | FUNCTIONAL DESCRIPTION: 
8 g ; Main procedure of EXCHANGE. Contains main command input Loop. 
, ‘ g 4 ; INPUTS: 
708 291 none 
107 738 IMPLICIT INPUTS: 
Aes re? ; Invoking command Line if present, otherwise none. 
711 +98 i OUTPUTS: 
ar 798 : 
We O600 9 | —— 
715 0801 i IMPLICIT OUTPUTS: 
rie 4) : 
4 OB0, 5 | = 
r9 0805 ROUTINE VALUE: 
731 0807 ; true, or error code if abnormal termination 
7 5 0809 2 ! SIDE EFFECTS: 
724 0810 ! 
725 0811 ! Many. 
me Eg = 
f : i $dbgtrc_prefix (‘main_start> '); 
780 o 1 LOCAL i 
731 81 dynamic_desc : Sdyn_str_desc, ! A dynamic string descriptor for ‘‘foreign’’ commands 
7 ¢ 0818 status 
i 
735 821 ' The CLI will print an annoying “SCLI-W-NOCOMD, no command on Line’’ message if a blank Line is entered. We 
g $ 08 ¢ declare a condition handler which will stop such nonsense. 
7 i 4 2 ENABLE 
444 5 main_handle_cli_nocomd; 
741 § ! Check that some of our constants have valid values. Note that the $logic_check macro will perform checks 
tt i 3 : compile-time rather than run-time if possible. 
aletet L 0 it ig_che BS. 8 txSh buf for Longes GEQU 1536) AND (ctx$k_buffer_length LSSU 65536)), 114); | 
: s on erified during c ation 
mas L b33i""5 Slogig che k (0, Cetxtk buffer ength GEQU filb$s_record_buffer+1024), 143); 
ZPRINT ; jon 143 ver tog during compilation 
746 L 08 ~ Slogic check (0, (relictx$s_entry EQL rtilent$k_length), 167); 
SPRINT ; ion 6 ver fied dur ng coapT lation | 
- 2 L 88 ™ $lo cacheck (0, dos Ictx3s entry fields EQL doslictx$s_entry), 251); 
; SPRINT: assumption 251" verified during compilation 


L 0834 2 ‘slop. check (0, 


res sf int, command dispatch 1b-se -1 :47 AX-11 Bliss- 74 
mt peel geen: epamatn gerne nets 8p 1984 43:99:05 — LEXCHNG’SRETEREMAIN-BOS41 


11hom$k stengtn EQL 512), 141); 


, Sure ann see ag oy tnt eet let ea sis, zn 


Aan Sieh on Ae iy ft ne E RN gS 


verified prt Lay compilation 


! Several routines assume that the jeles in the front of the CTX$, RTIICTX$ and DOSTICTX$ structures 
coincide. Test these assumptions (again, compile-time checks). 


$Logi g-che k (0, (S$offset sgheck  ¢ (a_alloc)), 293); 


a ‘ogt } {tog Ouest tsetecheck¢ (a_assoc_filb)), 294); 


tae at ‘Slogie. tele Our sot soe fset at fletles te .assoc_volb)), 295); 


hae Slo ic athe eg Stssoh sete tS ee ta _buffer)), 296); 


ithe Rie ye veri fied durin 
check (0, ($$0 thet. a tei ten (lL.cur_block)), 297); 


sssymps ion 99 verified durin 
on 398-ver k (0, aye thet. staf Tet ten in eof _block)), 298); 
sssumpt ton verified duri ng comp 
6 2 $logi ne , (0, ($$0 feet agheck at _cur_byte)), 299); 
997ve 


Bssumps on eg. during comp ompi lat 
Slogi acheck ( a Soffset et check mal _flags)), 300); 
verified durin 
84 fin. Oi-veri tie 4 ns 9 Rom! weaTtattes in buf _base_block)), 301); 
ass ver ° urin 
aco 2 $ Slog! S- che i . tol sete check tL buf high _block)), 302); 
assumption M0 02 verifie vein ee ompilation 
2 i2logs §- che :. (0, ($$0 test check tt high_block_written)), 203); 
assumpt i on ver eg oy a 9 ompilation 
c, Sle AS atheck, ( shock ty cstrean active)), 304); 


sssua0§ fon ‘Stogi g. check 8, ‘dueng, tonpite ig _output_file)), 305); 


355 verifie “durin ilation 
ass st ~\ ic_check ( (0.74 A} (ve flush)), 306); 
eel 06° verified Pin oy Tompi lation 


Ha 

855 ! Perform initializations necessary onty once at load time. SYSSOUTPUT is attached to SYSOUT_xAB. 
B28 Qualifiers on the EXCHANGE verb itself are parsed and recorded in global variables. 

858 


main_setup_load_time (); ' If failed, exit to VMS. 
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start -Sep- EXCHNG.SRCJEXCMAIN 
; 774 y 
; He ! jaf thes have been initialized. If executed as a foreign command, perform requested function and exit. 
; 77 
3 at if cli$get_value (ZASCID ‘COMMAND’, dynamic_desc) 
rin THEN 
; f BEGIN 
3 i § Parse the single command, execute if successful 
Se . xchSa. bl Cexcgsv. foreign_command) = 
3 f 5 a 4 a us = cli$dtl_parse (dynamic_ 7 iy *axch$cld. table)) 
; 78 7 agg = cli$dispatch(); 
: 788 er8 F 
s ad RR Scheck call (4, LibSsignal, exch$_trace, 1, .status, .status); 
; ee) 0876 Terminate execution and return to DCL 
; 738 Oare if NOT .status ! If failed, inhibit additional signalling 
: 795 0880 Sinhibit_msg (status); 
; 796 0881 
: 797 bans RETURN .status; 
; 798 0885 2 END; 


sqpempennnpecsidtienamantetie 4 


ereusin Dil ge aaa point, command dispatcher 16-5 eo-1984 9} 06:67 AX-11 Bliss-32 V4.0-742 Page 29) 


»PSECT EXCHSMAIN_PLIT,NOWRT,2 


00 44 4E 41 4D 4D 4F 43 00074 P.AAN: .ASCII \ OMMAND \<0> 
010€0007 Q007C P.AAM: .LONG iereret 
ve (9 494 «ADDRESS P.AAN 
00 00 20 3E 45 47 4E 41 48 43 58 4 0084 P.AAP: .ASCII \EXCHANGE> \<0><0> 
10EQO0A 00090 P.AAO: .LONG 
0000000" 00094 -ADDRESS P.AAP 


-EXTRN CLISDCL_ PARSE, EXCHSCLD_ TABLE 
~EXTRN CLISDISPATCH, “EXCHS_ TRATE 


-PSECT EXCHSMAIN_CODE ,NOWRT ,2 


003¢ 00000 .ENTRY MAIN START, Save R2.R3.R4.R5 : 0781 
5 G 9E 00002 MOVAB LIBSGET INbU T, RS : 
4 6 E MOVAB (CLIS$DI SPAT R4 : 
3 6 — 0001 MOVAB crisper Panse R3 : 
: 0 6 iY 2 v7 nov EXCHSCLD B_TABLE, R2 ; 
02060000 8F DD i PUSHL 734491936 : 0817 
4 AE D4 ? CLR DYNAMIC sp esce4 : 
6D 0058 «OCF:SC#OéE: A MOVA $, (FPY : 


-Sep-1 EXCHNG.SRCJEXCMAIN.B32; 1 | 
H + 
; 5 i Top of the interactive command Loor The normal exit condition is a call to exch$main_exit, which occurs 
: 4 end-of- ile is reached on the SYSSINPUT stream or the verb EXIT is received. 
: BEGIN 
; 91 
: 36 Call the Library routine to parse the command, pass the address of the external command table 
3 19 Be 3 if (status = cli$dcl_parse (0, exch$cld_table, Lib$Sget_input, Lib$get_input, %ASCID "EXCHANGE> ')) 
; 81 BEGIN 
Be BNE 
; 3 43 ? exch$a_gbl Cexcg$v_control_c] = false; ! Clear the bit saying we got an ast 
3 1g 3444 2 Call the Library routine to execute (call) the routine associated with the DCL verb 
; 18 90 4 status = cli$dispatch(); 
; Boe 2 ; Keep track of status during development 
3 : 906 4 $Scheck_call (4, LibSsignal, exch$_trace, 1, .status, .status); 
: 824 0908 END; 
; 5 0909 
; $ 0910 
; 0911 UNTIL” "eteiun EQL rms$_eof; 
; : 8 eat 
3 g 091 Sua true; 
; 8 0914 1€ 


ox 


3 
EXCHSMAIN Image transfer point, command dispatcher 18-se 1984 01:06:47 AX-11 Bliss-32 V4.0-742 Pa 0 
v04-000 main _start 1 330-1382 9:98:65 FEXCHNG. SRE EXCMAIN.B32;1 9435 
FOB? CF 0 FB F CALLS #0, MAIN_SETUP_LOAD_TIM : 
ow FRE | i Bg ms 
000000006 00 A A CALLS ‘ , SL ISGET_VALUE : 
00000000" FF hb BISB2 #8. SEXCHSA_GBL + 0869 
D B PUSHL R + 0870 
04 AE OF DYNAMIC_DESC ; 
63 9 f CALLS #2 CLISDCL_PARSE : 
4 FB 00 é CALLS #0, CLISDISPATCH : 087 
C c 99 BLBS STATUS 4$ : 087 
50 01 C 1 FO Qo05¢ 18: INSV AT, # 8, #1, sTaTus2 : 0880 
0000" CF 9F 86 2s: PUSHAB P.AAO + 0894 
5 0D 3 PUSHL PF 
4 68 PUSHR  #*M<R2,R5> : 
rE D4 Boer CLRL = = (SP : 
63 93 FB C CALLS #5, CLISDCL_PARSE : 
A 0 £9 006F BLBC = STATUS, : 
00000000" FF 1 BA 00 g BICB2 #1, @EXCHSA_GBL : 0898 
64 9 FB 0007 CALLS #0, CLI$D'SPATCH : 0902 
0001827A = BF D1 0007C 3S: CMPL status, #98938 > 0911 
50 8) 88 800 OL Oe RO ? 0913 
04 088 4$: RET 7 + 0914 
0000 00089 5$: «WORD Save nothing ; 0817 
7E D4 000 CLRL 0s = (SP) ; 
5E pp OO8D PUSHL SP : 
7E (04 aC D O008F OVO 4(AP), (SP) ; 
FBF6 CF 0 fe 00095 CALLS #3, MAIN_HANDLE_CLI_NOCOMD F 


; Routine Size: 153 bytes, Routine Base: EXCHSMAIN_CODE + 9417 
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* 
Image transfer point, command dispatcher 1eogs -1984 
aath_stort oo ° 1e-8ep-1984 93; 96:42 


£3 Ris 1 Fe... ‘End of module 


AX-11 Bliss-32 V4.0-742 
EXCHNG.SRCJEXCMAIN.B32;1 


~EXTRN LIBSSIGNAL 


PSECT SUMMARY 
Name Bytes Attributes 
EXCHSMAIN PLIT 152 NOVEC,NOWRT, RD, EXE,NOSH LCL, REL, CON,NOPIC,ALIGN(2) 
EXCHSRW_GCOBAL NOVEC, WRT, RD *NOEXE, NOSHR LCL, REL, CON,NOPIC,ALIGN(2) 
EXCHSMAIN_CODE 1200 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


econsse= Syabel§ eooceoee Pages Processing 
File Total Loaded Percent Mapped Time 
$255$DUA SYSLIBILIB.L32;1 18619 1 0 10 00:01.9 
mB TEittN Fe xehne: OBJJEXCLIB.L32:1 1151 188 11 8 00:01.3 
Information: 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:EXCMAIN/OBJ=OBJ$:EXCMAIN MSRC$:EXCMAIN/UPDATE=(ENHS:EXCMAIN) 


; Size: eel ‘3 + 156 data bytes 


eet Min: 

Lexemes/CPU-Min: 3 ris 
Memor "Y Used: 248 pages 
Compilation Complete 
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